home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 6 / developer source - volume 6.iso / parad / may96 / parkf108.gif < prev    next >
Graphics Interchange Format  |  1996-11-19  |  8.5 KB  |  661x301  |  4-bit (6 colors)
   ocr: ORDERS.FSLSaduliespushbiution - ADDITEM::PUSIBUEEOD method pushButton(uar eventinto Event) var tc TCursor enduar movelo(Parturdered) ;move cursor to "Partordered." ORDRDTL.action(Databegintdit) ;put table Frame into edit mode. ORDRDTL.moveTORecord(1) ,move to first record in table Frame. ORDRDTL.action(DatalnsertRecord) ;insert blank record in table Frame. CC.attacn(URDRDTL) attach TCursor to table Frame. tC.locatecIten", CC.Chax(Item")) locate "Item" field, get max value. Item = CC.CMaxtitem") + 1 endmethod Edit Line: 18 Col: 1